DEFINT A-Z


'--- Graphic primitives for the 320x200 mode
     DECLARE SUB Set320x200 ()
     DECLARE SUB PSET200 (BYVAL X%, BYVAL Y%, BYVAL Colr%)
     DECLARE SUB LINE200 (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Colr%)
     DECLARE SUB XLINE200 (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Colr%)
     DECLARE SUB BOX200 (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Colr%)
     DECLARE SUB BoxF200 (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Colr%)
     DECLARE SUB CIRCLE200 (BYVAL XCenter%, BYVAL YCenter%, BYVAL Radius%, BYVAL CircleColor%)

     DECLARE FUNCTION PONIT200 (X%, Y%)

'--- Graphic primitives for the 320x240 & 320x400 modes
     DECLARE SUB Set320x240 ()
     DECLARE SUB Set320x400 ()
     DECLARE SUB PSET240 (BYVAL X%, BYVAL Y%, BYVAL Colr%)
     DECLARE SUB LINE240 (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Colr%)
     DECLARE SUB BOX240 (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Colr%)
     DECLARE SUB BOXF240 (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Colr%)
     DECLARE SUB CIRCLE240 (BYVAL XCenter%, BYVAL YCenter%, BYVAL Radius%, BYVAL CircleColor%)

     DECLARE FUNCTION PONIT240 (X%, Y%)

'--- GET/PUT Commands for the 320x200 mode
     DECLARE SUB Get200 (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, SEG Array AS ANY)
     DECLARE SUB Put200 (BYVAL X1%, BYVAL Y1%, SEG Array AS ANY, BYVAL Attr%)
     DECLARE SUB TPut200 (BYVAL X1%, BYVAL Y1%, SEG Array AS ANY)
     DECLARE SUB RPUT200 (BYVAL X1%, BYVAL Y1%, SEG Array AS ANY)

'--- GET/PUT Commands for the 320x240 & 320x400 modes
     DECLARE SUB Put240 (BYVAL X1%, BYVAL Y1%, SEG Array AS ANY)

'--- Virtual Screen Commands
     DECLARE SUB CreateVirtualScreen (SEG Array AS ANY, BYVAL NumCols%, BYVAL NumRows%)
     DECLARE SUB VPut (SEG Array1 AS ANY, BYVAL X%, BYVAL Y%, SEG Array2 AS ANY)
     DECLARE SUB VTPut (SEG Array1 AS ANY, BYVAL X%, BYVAL Y%, SEG Array2 AS ANY)
     DECLARE SUB VGET (SEG Array1 AS ANY, BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, SEG Array2 AS ANY)

'--- Palette Commands
     DECLARE SUB SavePal (SEG Array AS ANY)
     DECLARE SUB RestorePal (SEG Array AS ANY)

'--- Font Commands
     DECLARE SUB SetFont200 (SEG Array AS ANY)
     DECLARE SUB SetCursor (SEG Array AS ANY)
     DECLARE SUB Print200 (BYVAL X%, BYVAL Y%, Text$, BYVAL Colr%)

'--- Misc.
     DECLARE SUB Set80x25 ()

